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HARDWARE REQUIRED: 

Radio Shack's 32-K, 2-Disk "Business System'' with 

Line Printer. 

The Radio Shack "INVENTORY CONTROL SYSTEM" 
(ICS) is designed to provide you with the information 
you need for proper control of your retail inventory. The 
key features are: 

1 . Accurate Daily Cost Of Goods Sold 

2. Accurate Control Between Physical Inventories 

3. Records On Merchandise Movement 

4. Rapid Access To All Data 

5. Storage Of Up To 1 ,000 Different Stock Items 

6. Complete Reports Available At Any Time 
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What is ICS? 



Radio Shack's INVENTORY CONTROL SYSTEM (TCS) is a simple- 
to-use, yet complete inventory management tool for the businessman 
with 1 ,(300 or less items in his inventory. Once you have created 
your inventory data files (beginning records), all you have to do is: 

1 -Enter the items you place on order, from your purchase 

orders. 

2 -Enter receipt of those items as they arrive from your 

suppliers, along with any changes in price on them. 

3 -Enter every item sold, from your daily sales tickets or 

invoices. 

It's that simple! Of course you may also have to adjust for unusual 
cases like returns for refund or exchange, breakage, loss through 
shoplifting ... or to correct an error made in entering data into ICS. 
And you'll want to take a physical inventory count at least once a 
year, and correct any quantities which might not be correct in your 
ICS records. ICS's real advantage is that between year-end physical 
counts, you get accurate records on: 

1 —Daily cost of goods you sell (you'll know your actual 

profit, not just an estimated figure). 

2 How many of each item you are really selling, quarter-to- 
date and year-to-date (or any two "period-to-date" intervals 
you want to designate). 

3 -Items you need to order from a specific vendor. (You can 

check everything he sells you, not just those things you're 
sure you're out of, and combine your orders for best 
quantity pricing.) 

Actual reports you can get, any time, include: 

COMPLETE INVENTORY LISTING (with or without cost 
figures) 

NOT-IN-STOCK ITEMS 

ITEMS ON ORDER 

ALL ITEMS AT OR BELOW REORDER POINT (you specify 
reorder point) 

COMPLETE LIST OF ITEMS BY VENDOR 

LIST OF ITEMS BY STOCK NUMBER PREFIX OR SUFFIX 

SUGGESTED PURCHASE ORDER TO VENDOR 
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Before You Run ICS 



Program Limits: 

1 —Maximum quantity on-hand for any item can't exceed 

9,999. 

2 —Cost and sell prices can't be in fractions of a cent. 

3 —No more than 1 ,000 sales ticket items (items sold) can be 

entered at one posting session. 

4 --No more than 1 ,000 inventory items in your total inventory. 

Before you try to run ICS, there arc some plans you must make, and 
two things you must do: 

Diskettes can be damaged through contact with magnetic fields, mis- 
handling, etc. To insure against loss of your program, before you 
begin running ICS, you should make a copy (BACKUP) of your 
program diskette, and file it. in a safe place. You must also prepare 
(FORMAT) a blank diskette, which will be used to store your 
inventory data (the actual inventory records). If you are not familiar 
with BACKUP and FORMAT functions, refer to Appendices A&B 
in the back of this manual for detailed instructions. 

Planning Your Inventory Files: 

You will access your inventory records during ICS operation, in two 
primary ways . . . Stock Number and Vendor. You must decide on 
the best way to designate these items, and stay with it throughout 
all ICS operations. 

ICS allows a 10-character Stock Number. If you don't use stock 
numbers, this could be an abbreviated description of the item, but 
every time you enter an item as ordered, received, or sold, the stock 
number for that item must be exactly the same. ICS will look for a 
character- by-charactcr "'match", and if there are any extra spaces, 
punctuation marks, or any differences at all, it will not recognize the 
item. For example. ICS views all of the following as different stock 
items: 



26 2187 



26-2187 



26.2187 



262187 



'6-2187 



This is also true of vendor names. "Vendor" may include up to 6 
characters. Proper entry of these two items is perhaps the most 
critical factor in successful use of ICS! 
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Before You Run ICS (continued) 



Decide on a specific code or name for each vendor, and stay with it. 

Decide what "period-to-date" intervals you want to use for inventory 
movement figures . . . month-to-date, quartcr-to-date, etc. ICS 
doesn't care, but you must close out the two periods at the proper 
time in order to make these figures accurate. 

COST and SELL entries will require a decimal point, followed by 2 
digits, even if they are zeroes. 

Plan your inventory system ahead of time, and you're almost ready- 
to begin entering your data files into ICS. 



Your ICS Password 

In order to prevent unauthorized persons from viewing or changing 
your confidential inventory information, ICS has a "password", 
which is required lo load and run the programs in your TRS-80. 

The first time you run ICS, the program will ask you to "Enter 
Password". You type in whatever password you would like to use, 
up to 8 characters in length. It could be any word you choose, and if 
security is not important to you, you might use your name or even 
"PASSWORD" (All Radio Shack diskettes have "PASSWORD" as 
their "master diskette password", so that might make it easy to 
remember.) 

Your password docs not show on the screen as you type ii, so that 
anyone watching you can't see what it is. 

Each time you run your ICS from this point on, the same password 
will be required. Watch the keys as you type it this first time, and 
be sure you do it right . . . or you may never run ICS again! 
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Details Of Operation 



Daily Sequence of ICS Operations 



Your daily ICS operations should be done in the following sequence: 

1. Add any new stock numbers to data files. 

2. Enter items placed on order (from your P.O.'s). 

3. Enter items received (from packing list or receiving ticket). 

4. Update any data files which need updating (breakage, theft, 
incorrect count, etc.). 

5. Enter items sold from daily sales tickets or invoices, 

6. Post items sold to data files. 

7. Print any desired reports or summaries. 

8. Make copies of your diskettes. (You can rotate diskettes, 
you don't have to use new ones each day.) See Appendix C 
for complete explanation. 
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Running The ICS Program 



Follow these steps in EXACT order: 

1 . Turn on the disk drives, printer, video display, and the 
Expansion Interface. 

2. Insert the Backup Copy of the "ICS" in Drive #0. 

3. Insert your data diskette in Drive # 1 . 

4. Turn on the TRS-80 keyboard. 



This is what you type; 

EH SEED press ENTER 



The screen will show: 

DOS READY 

HOW MANY FILES? 

MEMORY SIZE? 

ready [EJtMlCllElcMlCD press i ENTER 



press IENTER 



press [ENTER 
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Screen will clear.: 

ENTER CORRECT DATE (MM/DD/YY): fflQUJ^QDHHE press | ENTFR | 

DATE IS SET TO 01/01/79. IS THIS CORRECT? prCSS E 

enter password Type in your password press IENTERI 

(Your password must be entered exactly like this every time.) 
The screen may show : 

NO DATA IN SYSTEM. USE FUNCTION 4 TO CREATE 

INVENTORY TYPE @ TO RETURN TO MAIN MENU 



STOP. If you get this message, and you have already- 
created your inventory, follow these steps EXACTL Y: 

1 . Wait for the red lights on the Disk Drives to shut off. 

2. Type jfg] to return to the Main Menu. 

3. Type |£] to Exit From Program. 

4. Wait for READY to appear, and Drive Lights are off. 

5. Check for the following possible causes: 
Disk Drive Door is Open. (Close it now.) 
No Diskette in Drive #1 . (Insert diskette.) 

Blank Diskette in Drive #1. (Insert Data Diskette.) 
Drive #1 is unplugged or nol on. (Turn on Drive.) 
Cable to Drive came loose. (Check connections.) 
Data Diskette is inserted wrong. (Re-insert Diskette.) 
Defective Diskette. (Use your "Backup" Data Diskette.) 

6. If yo u found t he problem, fix it, type (HEDEl, and 
press IENTERI . Return to page 7, and continue. 



• 



If you are starting a new inventory, this message is normal. Type || 
to return to the Main Menu, then select function 4. 
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Main Menu 



This Is The Main Menu: 




Press the number key corresponding to one of the following options: 

1 -Allows you to add new inventory items to your files. 

2 —Lets you look up an item, delete it if you wish, or change 

any of the information on file. 

3 -Select this option to print any type of reports. 

4 To set up your beginning inventory files, choose function 4. 

5 - Use this option to enter items sold from your sales tickets. 

You don't have to enter all of them at once . . . you can 
enter them at different times during the day, in "batches". 
(When they're all entered, you "post them" to the files by 
using function 6.) 

6 Allows posting of daily sales tickets, and end-of-pcriod 
closcouts. 

Note: Use function 9 to be sure all tickets have been 
posted, before closing a period. 

7 -Enter items received from your vendors against purchase 

orders you've issued. 

8 Enter items you have placed on order. 

9 —System status shows you how many inventory items you 

have entered (but not yet posted with option 6), the retail 
and cost value of your inventory, along with the total 
dollar value of items on order. 

©—Allows you to end the 1CS program. Always end your 
program with this command". . . NEVER DO IT BY 
SIMPLY CUTTING THE POWER ON YOUR SYSTEM. 

Note: As you enter sales tickets, purchase orders, or 
receiving tickets, it's a good idea to note on the document 
that it has been entered into 1CS, to avoid possibly 
entering the same information again at a later date. 
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Input New Items 



Main Menu 
(Function 1) 




If you choose function 1 on the Main Menu, the above "Input New 
Items" menu will be displayed. 

For each item, answer the following questions (sample answers are 
in black): 

Stock numbeT. Up to 10 characters, alphanumeric. 

1 - Your description, or name of the item. Up to 19 characters, 

alphanumeric. 

2 Quantity on hand. Whole numbers only. Up to four digits 
(do not type in commas). If you receive a series of 
shipments totaling more than 9,999 single pieces, the total 
will be stored up to a quantity of 32,767. 

3 -Your cost per single item. 

4 Your resale price. Note: Following this entry, the computer 
will display your gross profit margin for the item 
automatically. 

5 —Location can be a shelf, bin, or box number, or the 

description of where the items are kept (up to 10 
characters), or may be left blank. 

6 —This question is asked in two parts. First type in the reorder 

point . . . the computer will tell you it's time to reorder any 
time your quantity on hand falls to, or below, the number 
you type in here. Press IENTHRI - Next, type in the 
quantity you normally want to order when your inventory 
gets low (just a suggested figure, you won't be "locked in" 
to it). Press IENTER! again. 

7 Number of items currently on order, but not yet. received. 

8 -The date you entered your last order for this item. 

9 — The name of the vendor from whom you purchase the item 

up to 6 characters. 
@ Ty pc i n I h i s sy m bol i f y ou ' v c in ad c an c rr or ( an d alrcad y 
entered it), or when you want to return to the Main Menu. 

Note: After each "Input New Items" session, the computer will sort 
all of the items on your data disk. Allow several minutes. 
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Input New Items (continued) 



Main Menu 
(Function 1) 

A series of rectangular blocks (to the right of the line description) 
will appear on the screen when the system is ready to accept data. 
The number of blocks indicates the maximum number of characters 
your answer may contain. 

A stock number must be entered before a new item can be received 
or sold. When typing the number, don't insert any leading spaces. It" 
the stock number is to be used for a suffix listing later on, the entire 
stock number line must be filled, with spaces if necessary, so that 
the suffix is right justified. For Example: 27- 432B. 

Press IKNTERJ to record the stock number. If you reach the 
maximum number of cha racters (o r numbers) for a line, the 
computer will stop. Press |ENTHR| to go to the next line, or{3to 
backspace, one character at a time, |Si IIFT [ p^ will delete the entire 
line. 



Once a stock number has been entered, you ca n use as m any of the 
other lines as desired. To store the entry, press ( ENTER I . and the 
system w ill go to the next line. To skip over a line, just press the 
iHNTERj key. (Note that COST and SELL lines require an entry with 
a decimal point followed by two digits'). When you skip over a line, 
character lines will appear blank, and number lines will show a zero 
(0) on all printed reports. 

If an error is noticed after entering the data, don't worry about it 
now. Make a note of it for correction, (using the ACCESS/UPDATE 
function) later on. You may also type W\ to REDO ENTIRE 
SCREEN. 

Note that line 6 requires two separate entries, RE-ORDER PT/QTY. 

Press lENTHRl after each entry. The computer will insert the "/" 
charac t e r au torn a ti cal ly . 

After VENDOR has been entered, the disk drives will start, and store 
the item on disk. Then the system will be ready for the next entry. 
It takes 1CS approximately 5 seconds to store the first item. All 
succeeding items are stored much faster. After all the data has been 
entered, type ||] (for the stock number) to return to the menu. The 
system will start the sorting operation to put the items in the proper 
sequence. As the sort progresses, the screen will display various 
messages: 

LOADING IN DATA FOR SORT 

SORT IS IN PROGRESS 

SORT COMPLETE, SAVING FILES 

ALL OPERATIONS COMPLETE 
RETURNING TO MAIN MENU 



When the sort is finished, the Main Menu will be displayed, and 
you can continue. 

The sort process will take a maximum of 20 minutes to complete. 
This would occur if 1000 items were entered in random order. 
Normally, the sorting will take 10 to 12 minutes. 
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Access/Update 

Main Menu 
(Function 2) 

This function is used very frequently, since it lets you recall any item 
in the inventory for review, update, correction or deletion. 
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Type in a stock number, press | ENTER] . The entire stock number 
must be entered. 1CS will go directly to that item on the diskette. 
The Inventory Control System is capable of accessing any item in 4 
to 6 seconds for a full system of 1 000 items. If the number is not in 
the listing, an "ITEM not in listing" message will appear to the 
right. Otherwise, the "ENTER stock #" message will be replaced 
by the editing instruction: 

SELECT (U)PDATE, (S)EARCH, (N)EXT ITEM, (P)REVIOUS ITEM, 

(A)DJUST QTY, (D)ELETE, (@) TO EXIT TO MAIN MENU 

The TRS-80 will display all the information related to the stock 
number. 

Editing can be done by just pressing the indicated letter in 
parenthesis. When \U} is pressed, the message is replaced by: 

SELECT LINE TO BE UPDATED (TYPE ® TO RESTART) 
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Access/Update (continued) 



Main Menu 
(Function 2) 

Simply type the line number you want to change (you cannot change 
the stock number line). Type the updated information. Press 
lENTERj . The system will immediately store the new information. 
The screen will display the updated line. 

Pressing [S] will return the initial ACCESS/UPDATE display so that 

another stock number may be Searched for. 

Pressing [N] will display the Next item in the listing. [F] will 
display the Previous one. 

The quantity can be Adjusted by pressing [A]. This will display the 
following message above the inventory format: 

ENTER + OR — AND CHANGE IN QUANTITY 

You may make an adjustment in the quantity, rather than calculating 

and typing the new quantity. Example; f+TfTflT] increases the old 
quantity by 75. ELDCS® increases the quantity by 138. You must 
enter the [+] or as shown. 



Pressing the Q5] key will immediately Delete the item currently on 
the screen from the inventory, and go to the next item in your 
inventory. 

If you want to delete items, as well as add new items, while running 
ICS, you should delete unwanted items before adding new ones. New 

entries are inserted into gaps in the inventory file resulting from 
deletion of items. 

Pressing j@] will return you to the Main Menu. 
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Output Reports And Summaries 



Main Menu 
(Function 3) 

This option provides printouts for ICS permanent records. 




CAUTION 



Turning Printer on or off, when the red light on the Disk Drive is 
on, may destroy data on the Disk. 



At this time, make sure that the Line Printer is turned on, ready to 
print, and paper is lined up at the top of the page. Keep the printer 
on until finished, and the "END OF PROGRAM, READY" 
message appears on the screen. 

Automatic page advance is built into the Inventory Control System. 
Listings which exceed an 1 1 inch page will be continued on a new 
page below a new heading. Each printing option is started by pressing 
the appropriate number key. 

Any time you want to stop a printout, hold down the [(&] key. This 
will terminate the printout, and return to the menu. The Line Printer 
will print TERMINATED* on the printout. 

All printouts start (and end) with dashed lines. These lines mark 11 
inch pages. Cut pages along the dashes. 

Ail printouts (except the suggested purchase order) give you the 
choice of suppressing cost and profit figures so that they can be used 
as counter copies. When suppress is selected, asterisks will be 
substituted for the cost and gross profit figures. 



PACE REFERENCE 



12 



Output Reports And Summaries (continued) 



Main Menu 
(Function 3) 

OPTIONS; 



1 



2 
3 
4 

5 



Prints the entire inventory listing, followed by the total number 
of items in the listing, and the value of inventory at cost and 
sell prices. A complete listing of an inventory containing 1000 
items takes approximately one hour. 

ICS looks through the entire inventory whenever it produces a 
special report. For an inventory of 1000 items, this process 
takes 1 2 to 15 minutes. 

Prints a list of all items with an on-hand quantity = 0. 

Prints a list of all items now on order. 

Prints a list of all items at or below your specified reorder point. 

When [3J is pressed, the screen displays this: 

ENTER ENOUGH LETTERS TO IDENTIFY VENDOR 

Type the vendor's name, and press lENTERl . 

When {6} is pressed and the ''suppress cost and profit figure" 
question is answered the screen displays: 

(P)REFIX OR (S)UFFIX? 

If [Pj is pressed, the system ask for the prefix the user desires for 
his listing. 

ENTER PREFIX 



Hither a complete, or partial prefix number, or letter may be 
entered. ICS will printout all stock numbers whose prefix begins 
with the numbcr(s) or letter(s) just entered. 

If a listing by suffix is desired, type \S\ when the system inquires 
the type of listing. Then, it will ask for the suffix number(s). 

ENTER SUFFIX 



ICS will print all entries where the desired suffix occupies the 
last character posit ion(s) in the stock number field. As noted 
before, this stock number field must be entirely filled when 
initially entered, with the suffix right justified and spaces filling 
up the field between the prefix and suffix, if necessary. 
(Example: 27-___432B). 
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Outputs Reports And Summaries (continued) 



Main Menu 
(Function 3) 

7 — Prints a suggested purchase order for any selected vendor and 

picks out those items which are at, or below, the reorder point, 
and which are not already on order. These items will be 
listed on the printout, along with recommended quantity, 
stock number, cost and extension for each item as well as 
total cost and number of items, 

8 This option lets you test the print width setting of the TRS-80 

line printer. There is a small knob in back of the line printer 
(on the left hand side) which is used to adjust the print density. 
The option should be selected before making any printouts, 
to insure the print width is set properly. Once set, it need not 
be changed. 
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Create New Inventory 



Main Menu 
(Function 4) 

The first tune you run ICS, you use function 4 to "initialize" the 
system. If no inventory items are present on the data diskette, this 
function prepares the program for a new inventory and then returns 
to the main menu. 

Starting Over 

At some point, it might be desirable to delete an old inventory, and 
start again. At the Main Menu, select function 4. The screen will 
show: 

SYSTEM CONTAINS INVENTORY DATA. IF YOU WISH TO 
ERASE ALL DATA, TYPE (SHIFT) K OR ELSE TYPE ® TO 
RETURN TO MAIN MENU 



Hold down the | SHIFT I key and type \K\. All the data files on the 
diskettes will immediately be erased. You can now return to the 
Main Menu, and re-select function 4 (to create a new inventory under 
the same password), or exit the program, then run it again to assign a 
new password. 
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Enter Sales Tickets 



Main Menu 
(Function 5) 
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This function allows you to enter stock numbers and quantities sold, 
(from sales tickets). All of the entries are stored in a temporary 
file. This file should be "posted" daily using function 6. 

Note; Sales tickets which are entered here, (but not posted in 
function 6). will be carried over to the next run (or session). This 
means you can enter a few sales tickets, exit from the program, run 
another program (such as Payroll), then continue entering sales 
tickets. The SYSTEM STATUS function will show the number of 
unposted sales tickets. 
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End Of Period Processing 



Main Menu 
(Function 6) 




You have three options: 

1 - Option 1 is used to post the information you entered from your 

sales tickets, to the inventory data files. Inventory quantities 
are adjusted, and both period-to-date lines are updated 
accordingly. The printer will print error messages for any stock 
number not found during the posting, and note any negative 
quantities caused as a result of the posting. The information 
(from function 5) is cleared, and the total dollar cost-of '-goods- 
sold (as reflected by the sales tickets) is printed on the line 
printer. 

2 — Option 2 will clear the "current sales" line of all items, and 

reset the "current sales" counter to 0. 

3 — Option 3 clears both the "current sales" and the "cumulative 

sales" lines. 
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Enter Receipts Of On-Order Items 



Main Menu 
(Function 7) 




When you enter the stock number of a received item, all information 
about that item will be displayed. You can now enter the quantity 
received, and any change in the cost or selling price. The entire 
display will update to reflect the changes in quantity on hand, 
number on order, and any price changes. All system totals arc 
adjusted as the information is entered. 

The current value of your inventory is always stated at current cost. 



Enter Items Placed On Order 



Main Menu 
(Function 8) 




Function 8 will ask you for the stock number, quantity being 
ordered, the date of the order, and then display the updated 
information for your verification. Again, system totals are adjusted 
as the information is entered. 
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System Status Report 



Main Menu 
(Function 9) 

Selection of Function 9 displays a report similar to the following: 
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Appendix A 



Backing Up Your Diskettes 

Use this procedure EXACTLY: 

1 - Turn on everything except the TRS-80 keyboard. If this is the 

first time you've ever used the Radio Shack Disk System, refer 
to the Disk Operating System Manual for detailed instructions. 

2 — Insert a new, blank diskette in Drive # 1 (farthest from the 

Interface) with the diskette notch up, label to the right. 

3 - Close the Drive # 1 Door. 

4 - Insert the diskette you wish to copy in Drive #0 with the notch 

up, label facing right, and close the door. (Drive #0 is the first 
drive connected to the interface.) 

5 Turn on the TRS-80 Keyboard. (The switch on the right rear 
apron.) 



This is what the screen shows: 

DOS READY 

SOURCE DRIVE NUMBER? 
DESTINATION DRIVE NUMBER? 
BACKUP DATE (MM/DD/YY)? 

HIT 'ENTER' TO CONTINUE 



This is what you type: 

EEElEIDp, and press lEN'I'ERl . 
{£], and press | ENTER I . 
Q], and press | ENTER I . 

simmiamramiaiENTiR]. 

(Example for January 1, 1979) 
STOP - Don't press anything! ! ! 



Now we can check to see if the "BACKUP" procedure was 
successful : 

1 — Remove the original diskette from Drive #0. 

2 - Take the backup diskette out of Drive # 1 . Place the backup 

copy in Drive #0 and close the door. 

3 — Now you can press [ENTERl . If the screen shows: DOS ready, 

your backup was successful. 

if something went wrong, go back to step 1. 
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Appendix B 



Formatting A Blank Data Diskette 

This process prepares blank diskettes for use on the disk system. All 
data diskettes must be formatted before being used. Here's how you 
doit: 

1 -Insert a blank diskette in Drive #1 - 

2 —Do the following exactly as shown: 



Screen Shows: 

DOS READY 
WHICH DRIVE etc. 
DISKETTE NAME? 
CREATION DATE? 
MASTER PASSWORD 
LOCK OUT ANY TRACKS? 
HIT "ENTER" TO CONTINUE 



You Type: 



press IENTER1 
press I ENTER I 
press 



ENTER 



m 

OTfflHLI] ___ 

[MDElMDtaraH] p fess ienthr 



press ENTERI 
press | ENTER 



press] ENTER 



For detailed information on the "formatting" process, consult your 
DOS Instruction Manual. When you "format" a data diskette, you 
might want to create your own password, or diskette name. You can 
use up to 8 characters for the password, or diskette name. The date 
should be a current date, and entered in the manner shown above. If 
security is not a big problem, simply enter "PASSWORD" as your 
password. If you are using several different program diskettes for 
your TRS-80, you might want to use a more detailed diskette name. 

Example: DISKETTE NAME? ICSDATA2 or ICSFIL 34 

Just so you do not exceed 8 characters for your diskette name or 
your password. 



Appendix C 



Making "Safety" Copies Of Your Diskettes 

At the end of the work day, make a "Backup" copy of the 
program, using the technique shown in Appendix. A. To "Backup" 
your data diskette, use this procedure: Leave data diskette in Drive # ! 



Screen Shows: 



DOS READY 



SOURCE DRIVE? 



You Type: 

[Bl[A|[Cl[K]|U1[Pl,and press I ENTER! 

Don't type anything. Remove the 
program diskette from Drive #0, 

and insert a blank diskette. 

Now, You Type: 
[TUnd press I ENTER! 
"'], and press |ENTER| 



DESTINATION DRIVE?_ 

backup date {mm/dd/yy)?_ Type the date, and press I ENTER I 
backup completed Put program disk back into Drive 

#0 
hit 'Enter' to continue Press the |ENTER| key. You've 

just made a successful "BACKUP" 
of your "DATA" diskette. Use it 
for your next session. 



Rotating Backup Copies 

When you're using your system, get in the habit of making copies of 
both diskettes at the end of the day. The next day, use the copies 
that you just made. It's a very inexpensive form of insurance. You 
might consider even carrying the backup copies home at night in case 
of fire, theft, or vandalism. 

Here's an example, using 2 extra diskettes: 

The first day's diskettes wc will call A and B. The next day's diskettes 

will be called C and D. 



Day One 



Day Two 



Prog. 


Copy Onto 


Prog. 


Copy Oi 


to 


□ 
® 




© 




© 




® 










Data 


Cc 


jpy Or 


to 


Data 


Cc 


>py On 


to 


□ 
® 












® 











On the second day, you will take A, and B, and use them as blank 
diskettes to copy C and D. If something happens to a diskette, you 
still have the last backup copy to rely on. Four extra diskettes will 
give you three days of record protection. 

Note: The most effective method for erasing diskettes is by using a 
Radio Shack Bulk Tape Eraser, Stock No. 44-210. 
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Sample Reports 



Listing By Prefix 



8i/8i/78 

LISflNG 8V FREFiK: 26 
57CCK it DESCRIPTION STY COST SELL GF '/. LOCATION R/0 PT / 8T¥ ON ORDER DfiTE VEhfiHJK CuRR / CU 



26-1881 BLUE m 13 353. 33 MM m 5 TEC ME 1038 / 58 35 ii/f&78 TfP 0/8 

26-1KI3 SREtN m 18 IS. 88 23. 35 36. 6 TEC *SE 18© / 33 13 11/88/78 TflP 8 / 8 

26-1285 RED BSX 4376 35.88 43.35 2l. 3 TEC hk2 43/43 25 18/31/78 HCfl 23/ 23 

K3BER OF ITERS. 3 

TOTS. COST WLUE- $281,245.85 

TCTRL OtlL HUE: $256,638.38 

TOffiL COST OF BRPERS 115.274.85 

m OF LISTING 



Complete Inventory Listing 



COhflETE INfflffDRV LISTING 

STOCK # DESCRIPTION BTV COST SELL OP J; LOCfiTIdH £/0 f'T / fiTV OS GR0E3 DiiTE 



26-1881 BLUE 80S 13 353. 55 488. 88 18. 8 TEC KHSE 1839 / 38 

26-1883 GREEN BOX i8 i3. 88 23. 35 3b. £ TEC HHSE 1683 / 85 

26-1285 RED W, 4376 33. 88 43. 35 21. 3 TEC NHSE 43 f 43 

TOTRL ITEHS LISTE&: 3 

Mil COST VfiLUE. 1283,466.77 

TGTRL ETffIL m.i£: $267,132. 38 

TOTAL COST OF ORDEfS: $15,374.85 

END OF LISTING 
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Sample Reports 



Listing Of Not-In-Stock Items 



01/81/73 

LISTING OF NOT-BKTKK ITEMS 
STCCK f DESCRIPTION 6T¥ COST SELL GP '/. LQMTIOH R/0 PT / 8TV ON dm DflTE VENDOR CORP / (M 



26-1285 RS> BOK 9 3.86 45.35 21.3 TEC HHSE 43/ 43 25 18/31/78 W.Z 21/ 21 

END if LISTING 



Suggested Purchase Order To Vendor 



MBLW 

SilSBTES NRCHftSE flttER TO tttttt: TflP 
STY STOCK i ASCRIPTION COST EXTENSION 



% 26-1881 BLUES® 359.95 $32,393.58 

89 26-1M3 HEENBK 19.88 & 691. 86 

TOTRL I1D6: 2 

TOTAL COST OF ORDER: $34,886.58 

SC> OF LISTING 



Sales Ticket Posting Report 



Wi/Ml/78 

SALES ticket posting report 



NUMBER OF ITEMS POSTED: 1 

TOTAL COST OF GOODS SOLD : *89?. SO 

END OF LISTING 
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Sample Reports 



Listing By Vendor 

81/31/78 

LISTING BV VENDOR: TAP 

STOCK* OESCRIPTIOM QTY COST SELL GP X LOCATION R/0 PT / 8TV ®®5B DATE VENDOR CUS / CtW. 



26-iSSl 6U£ Sffi 19 335. 95 488. 96 16. 9 itC feHSE 1838 /' 39 39 11/88/78 Iff' 8 / 8 

26-1883 GREEK K£ 18 13. 69 23. 95 36. 6 TEC $Sc 1889 / 39 lS 11/83/78 TRP 8 / 8 

KMBER if ITBG: 2 

TOTAL COST WE: J?.. 181 85 

TOTAL RETAIL VflLUE: *8,i33.18 

TOTHL COST Of ORDERS: $14, 399. 85 

END Of LISTING 



Listing Of All Items At, Or Below Reorder Point 



81/81/78 

LISTlMi OF ALL ITEfiS ,r, OR SEL& REORDER POINT 
STOCK it DESCRIPTION QTY COST SELL GP £ LOCATION M PT / 6TV ON (MR DATE VENDOR CUW / CM 



26-1881 BLUE 88K 19 359 31 486. 88 18. 8 TEC NHSE IfflB t 98 39 li-WTS TAP 8/8 

26-1883 GREEN BOX 18 13.88 29.35 36.6 TEC t»6E 1869/ 89 19 ilA&rTS TAP 8/ 8 

END Of LISTS* 



Listing Of All Items On Order 



Kl.' 



.'tL/TS 



LISTING if ALL ITQE OH ORDER 
STOCK I DESCRIPTION BTV COST SELL GP g LOCATION R/Q PT / 8T¥ OH ORiSi? DATE «W0R CURR / 



26-1881 GLUE BOX 13 359.35 488. 66 18.8 TEC ME 1836/38 33 11/88/78 TAP 8/ 8 

26-1883 GREEN BOX 18 15.68 23.35 36.6 TEC HH5E 1883/ 83 13 ii/93/78 TAP 8/ 8 

26-1285 RED BOX 43?6 39.88 43.95 21.3 TEC WSE 43/ 49 25 18/31/78 BCA 23/23 

TOTAL COST Of ORDERS: CI5.374.flS 

END OF LISTING 



Inventory Control Listing 



10 REM 12/05/73 

28 REM ** TRS-80 INVENTORY CONTROL SYSTEM ** 

30 REM COPVRIGHT 1978 BV TANDY CORP. 

48 PQKE16425, 1 : P0KE6H5C8C, : CLEAR588 : U$=" " : QNERRORGOTO90 : OPEN" I ", 1, "TRANSFER" 

50 LINEINPUT#1,PI$:LINEINPUT#1,PS*:LINEINPUT#1,PD* 

60 L I NE I NPUT#1, PT* : LINEI NPUT#i, PR* 

70 CLOSE1 : KI LL "TRANSFER " 

86 CLS:GOSUB250:GOTO200 

98 I FERR/2+l=54THENRESUME110 

100 0NERR0RG0T08 

110 IFLEFT*CTIME*. 2)="00"ORMK>*<TIME*.. 3, 1>OV"ORMID$<TIME$.. 6, 1)OV"THENCLS:GOT 

0140 
128 CLS:PRINT0458.. "DRTE IS SET TO "; LEFT*<TIME*, 8); " . IS THIS CORRECT ? "; 
138 FL=i : GOSUB370 : Q$=IN* : IFQ$<>" V"fiNDQ*0"N ,, THENPRINTCHR*<8>; : GOTO130ELSEIFQ*="N 

"THEN140ELSE198 
148 PRINTO588.. "ENTER CORRECT DRTE (MM/DD/YV) : ".; 
150 FL=8 : G0SUB378 : DT*=IN* 

168 P0KE16454, VRL<LEFT«DT*, 2)) :P0KE16452, VAL<RIGHT*<DT$, 2)) 
176 P0KE16453, VAL<MID$<DT*, 4, 2) > 
180 G0T0118 
190 CLS : GOSUB250 : G0SUB3188 : IFP*=""THEN190ELSEGOSUB31?8 : PRINT8472, " INITIALIZING".; 

CHR*<38) 
280 DEFINTR, C, H.. J, K, F, L, M, H, P, T, V, W : DIMV<1088) 
218 DEFFNGPOC, IP>=<IP-IC)/IP*16B 
228 0NERRORGOTO3558 : P0KE16424, 67:P0KE16425, 1;HX=1;LF*=CHR*<138) :LL*=STRING*<132, 

"-") 
230 RERDfle, fll, R2, A3.. R4, AS, R6.. R7, A8, R9, RR, RB, RC, L8$, Lit, L6*, L7* : RESTORE : GOTO3010 
248 GOSUB250:GOTO270 
258 CLS:PRINTTRB<13)"TRS-88 INVENTORY CONTROL SYSTEM" :PRINT0117, LEFT*<TIME*, 8); : 

PRINT: RETURN 
268 G0SUB258 : PRINTTREK28) "SYSTEM STATUS REPORT" ; PRINT : G0SUB3878 : PRINT : G0SUB24S8 : 

RETURN 
270 PR I NT "FUNCTIONS: 

1 - INPUT NEW ITEMS 

2 - ACCESS / UPDATE 

3 - OUTPUT REPORTS RND SUMMARIES 

4 - CREATE NEW INVENTORY 

5 - ENTER SRLES TICKETS 

6 - END OF PERIOD PROCESSING" 

280 PRINT"? - ENTER RECEIPTS OF ON-ORDER ITEMS 

8 - ENTER ITEMS PLACED ON ORDER 

9 - DISPLAY SYSTEM STATUS 
- EXIT FROM PROGRAM" 

290 PRINT: PRINT "SELECT FUNCTION > "; 

308 FL=-1 : G0SUB378 : S#=IN$ : IFCF=1THEN330ELSEIFS*<"1"ORS$>"9"THENPRINTCHR*<S>J : GOT 

0308 
318 ONVRL<S*>GOSUB560, 808,. 1538.. 1888.. 1878, 2888, 1380, 1318, 260 
328 IFFD=8THEN240ELSECLS:PRINT@464, "LOADING IN DATR FOR SORT": CLOSE :G0SUB2758: GO 

SUB2728 : G0T03678 
338 CLS 
348 PRINTC"472.- "END OF PROGRAM" :PRINT:PRINT: IFER=1THENCLOSE:CLERR50:POKE&H5C3C. 1: 

ENDELSECLOSE : G0SUB2758 : G0SUB2728 : CLEAR56 : P0KE&H5C8C, 1 : END 
358 PRIHTei28,CHR$<30XiCHR*<23>;"<TYPE <? TO EXIT TO MRIN MENU)"; : RETURN 
368 PRINT0128, CHR*<2@>; CHR$<29); "(TYPE 9 TO REDO ENTRY)".; : RETURN 



378 I N*= " " : CF-6 : ld*= I NKEY* : WD=8 : WS=WD : WL=WD : I FFL=WDTHENFL=1 

380 PRINTSTRIN6*<RBS<FL>, CHR*<136>)i STRING*<flBS<FL)/ CHR*<24))i 

390 PRINTCHR* ( 14 ) ; : F0RW=1T025 : H*= I NKEVt : IFH*0 " " THEN488EL5ENEXT : PRI NTCHR* < 15) J : F 

0RW-1T025 : H*=INKEY* : IFW*<>" "THEN488ELSENEXT : G0TG398 
408 IFW*OCHR*<13>THEN420ELSEPRINTSTRING*<flBS<FL>-WU " ">i 
410 PRINTCHRt (15); : W=25 : NEXT : RETURN 
428 IFM*O"§"THEN440 
430 CF=1:PRIHTCHR*<15>; : RETURN 

446 PR I NTCHR* (14); : IFW*=CHR*(24)THENPRINTSTRING*<WL, CHR*<24)); :GOTO3?0 
450 IFW*<>CHR*<8>THEN498ELSEIFWL=0THEN390ELSEPRINTCHR*<24X; : IFFL>0THEN476ELSEIFP 

EEK(16418)=44THEN488 
460 IFPEEK<16418)=46THENUD=8:GOTG470ELSEIFPEEK(16418)=43ORPEEK<I1641S>=45THENNS=0 
476 IN*=LEFT*<IN*, LEN(IN*)-1) 
48© WL=ML-1 : P0KE16418, 136 : GOTG390 

490 IFflBS<FL>*HLTHEN390ELSEIFFL>0THENIFH$>=" "RNDW*<="Z"THEN540 
500 IFM*=". "RNDWD=0TH£NWD=1:GOTO540 
510 IFW*='VTHENPRINTW*; : WL=WL+1 : G0T0558 
520 I F < 14*= " - " ORW*= " + " ) RNDWS=0flND WL=0THENWS=1 : GOTG540 
530 I FW*< " " ORW*> " 9 " THEN390 
548 PRINTWfc :IN*=IN*+W*:WL=WL+1 
558 IFRBS(FL)=1THEN410ELSE390 
560 CLS:PRINTTRB<20)" INPUT NEW ITEMS" :PRINT 
578 IFER=1THENGOSUB30S0: RETURN 
580 J=TN 
590 IFTI=1800THENCLS:PRINTC«468, "SVSTEM IS FULL (1088 ITEMS)" : GOSUB2480 : RETURNELS 

EPR I NTSB0, CHR* (38) ; : 6OSUB2510 : GOSUB350 
600 IFFDO0THENPRINT§295, "(LAST ENTRY: MSt;')"i 
610 FL=10 : PR I NT§P0, .; : G0SUB376 : 1 FCF=0THEN I S*= I N*ELSE63@ 
620 IFI5*O ,M, THEN640ELSE610 
630 RETURN 
640 GOSUB360 

650 FL=19 : PRINTCflk i : GOSUB370 : IFCF=6THENID*=IN*EL5E568 
660 FL=-4 : PR I NT@fl2, > : GOSUB370 : 1 FCF=0THEN I Q2=VRL < I N* >ELSE560 
670 FL=-7 : PRINT0R3, ; : G0SUB378 : GOSUB3750 : IFCF=0THENIC=VRL< IN*) : PR I NTCHR* (30); ELSE 

0NCFGGT0568, 670 
680 FL=-7 : PRINT0R4, ; :GOSUB370 : GOSUB3750 : IFCF=8THENIP=VRL< IN*) : PRINTCHR* (38); ELSE 

ONCFCOT056B, 680 
699 GOSUB2830 

790 FL=10 : PR I NT8R5, ; : GOSUB370 : 1 FCF=0THEN I L*= I N*ELSE568 
710 FL=-4:PRINT8R6, ; :GOSUB370:IFCF=8THENIRK=VRL<IN*)ELSE560 
728 PRINT" / "j :FL=-4:GOSUB370:IFCF=0THENIN?;=VRL<IN*)ELSE560 
730 FL=-4 : PRI NT6R7, ; : G0SUB378 : 1 FCF=0THEN 1 02=VRL < IN* >ELSE560 
740 FL=8 : PRINTERS, > : G0SUB378 : 1 FCF=8THEN I M*= I N*ELSE568 
750 FL=6:PRINTHR9.. ; :G0SUB378: IFCF=0TH£NIV*=IN*ELSE560 
768 P1=0:P2=0:GOSUB3860 

770 TC#=TC#+IC*IQX:TP#=TP#+IP*IQK:TR#=TR#+I05i*IC:TI=TI+l 
788 FD=1 : GOSUB3130 : G0SUB2638 : GOSUB2660 : GOSUB2650 : G0SUB2548 
790 GOSUB2600 : GOSUB2560 : TN=TN+1 : J=TN : G0SUB2518 : Q0T0598 
Sue CLS:PRINTTRB(20)"flCCESS / UPDATE DRTfl":PRINT 
810 IFER=1THENGOSUB3860 : RETURN 
828 PRINT@R0,CHR*(31).i :6OSUB25i0 

838 GOSUB27S0:PRINT"ENTER STOCK # <TVPE @ TO EXIT) > "; 

840 FL=18:GOSUB370: IFCF=8THENIS*=IN*ELSE1270 

858 GOSUB2420 

868 IFK=0THENPRINT<?flB, "ITEM NOT IN LISTING".; :GOSUB2500:GObUB2510:GOTO830 



878 GQSUB2760 

888 G0SUB27S8: PRINT "SELECT <10PDATE, (SEARCH, <N)EXT ITEM, <P)REVIQU5 ITEM, 

<A)DJUST QTV, <D)ELETE, <&> TO EMIT TO MAIN MENU — > "; 
896 FL=1 : G0SUB378 : IFCF=1THEN1276ELSE0*=I U$ : IF0*O"U"AND0*<>"S"ANDQ$a"N"AND0*;O" 

P " RNDO$<> " D " RND0$O " fl " THENPR I NTCHR* ( 8 ) > : GOTO890 
980 IFO$="D"THEN1210 
910 IFO$="S"THEN820 
920 IFQ$="U"THEN970 
938 IFO*="A"THEN1240 
940 I FO*= " P" ANDNC1THENN=N-1 : J=V< H > : IFSGNU ) =-rrHEN940EL5EGO5UB2638 : G0SUB2668 : QO 

SUB2670 ; G0SUB2768 : G0T0888 
950 IFO*="N*'fiNDN+l<>TNTHEHN=N+i : J=V<N> : G0T0968ELSEPRINTCHR*<8).i : G0T0898 
968 I FSGN < J >=-lTHEN950ELSEGOSUB2630 : GOSUB2660 : GQSUB2670 : G0SUB2768 : G0T0888 
978 GOSUB2780: PR INT "SELECT LINE TO BE UPDATED (TVPE TO RESTART) ~> "i 
988 FL=-1 : G0SUB378 : IFCF=8THENU*=IN* : IFUK"1"0RU$>"9"THENPRINTCHR*<8) ; : GGT0988 
998 IFCFO0THEH888 

1808 G0SUB2788 : ONVBL(U$)GOTO1810, 1830, 1850, 1878, 1890, 1118, 1148, 1168; 1188 
1810 GOSUB2730: PRINT"! - DESCRIPTION : "i 
1628 FL=19 : GQSUB378 : I FCF=8THEN I D*= I N* : GOTO1208ELSE998 
1038 G0SUB2788 

1048 PRINT"2 - QUANTITY : "; :FL=-4;GOSUB378:IFCF=0THENQOSUB1288: IQ;i=VAL<IN*):GOS 

UB1298 : GOTO1288ELSE990 
1858 GOSUB27S0 
I860 PRINT "3 - COST : "j : FL=-7 : G0SUB378 : G0SUB3758 : IFCF=@THENGOSUB1280 : IC=VAL C I N* 

> : G0SUB1298 : PRINTCHR*<38>; : GOTO1208ELSEONCFGOTO998, 1858 
1870 G0SUB2788 
1088 PRINT"4 - RETAIL PRICE : "; :FL=-?:G0SUB378:GDSUB3758: IFCF=6THENG0SUB1288: IP 

=VflL< INI) : G0SUB1298 : PRINTCHR*<38); : GOTO1200ELSEONCFGOTO990, 1878 
1098 GOSUB2780:PRINT"5 - LOCATION : "; 
1188 FL=18 : G0SUB378 : IFCF=0THENIL*=IN$ : GDTO1208ELSE990 
1110 GGSUB2780:PRINT"6 - REORDER POINT/QTV : "> 
1128 FL=-4 : G0SUB370 : IFCF=0THENIRK=VAL < IN*)EL5E990 

1130 PRINT" / "} : FL=-4 : G0SUB378 : IFCF=8THENINK=VAL < IN*> : GOTO120OELSE998 
1148 GGSUB2780:PRINT"7 - # ON ORDER : "; 

1158 FL=-4 : GOSUB370 : IFCF=8THENGOSUB1280 : IOK=VAL< IN*) : G0SUB1298 : GOTO1280ELSE998 
1160 GOSUB2780:PRINT"8 - DATE LAST ORDER : "> 
1170 FL=8 ; G0SUB378 : IFCF=8TH£H I M*= I N* : GOTO1288ELSE990 
1180 00SUB2788:PRINT"9 - VENDOR : "; 
1198 FL=6 : G0SUB378 : IFCF=8THENIV*=IN* : GOTO1288ELSE990 
1288 G0SUB2568 : G0SUB2518 : G0SUB2868 : G0T0888 
1210 V<N>=~J:GGTO1220 
1228 TI=TI-1 : GOSUB1280: F=F+1 
1230 IFN+1=TNTHENPRINTC-H0, CHR*<31>; : G0SUB2518 : G0T0S38ELSEN=N+1 : J=VCN> : IFSGNC J)=l 

THENG0SUB2628 : GOSUB2SS0 : G0SUB2678 : GOT0878ELSE1238 

1248 GQSUB2780: PRINT-ENTER + OR - AND CHANGE IN QUANTITY > ":• 

1250 FL=-4 : G0SUB378 : I FCF=8THENCH*= I N*ELSE998 

1268 IQS=IQK+VAL<CH*) : TC#-TC#+IC*VAL<XH*> : TP#=TP#+IP*VAL<CH*> :GOTO1200 

1278 RETURN 

1280 TC#=TC#-IQ?i*IC:TP#=TP#-IQ?i*IP:TR#=TR#-IOK*IC: RETURN 

1290 TC#=TC#+IQtf*IC : TP#=TP#+IQ?i:*IP : TR#=TR#+IOX*IC: RETURN 

1300 CLS:PRINTTRB<10) "ENTER RECEIPTS OF ON-ORDER ITEMS":PRINT:GOTO1320 

1310 CLS:PRINTTAB<15) "ENTER ITEMS PLACED ON ORDER" .-PRINT 

1320 I FER=1THENGOSUB3060 : RETURN 

13-30 PRINTC'AO, CHR$<31>.; :GOSUB2510 

1240 GOSUB2730;PRINT"ENTER STOCK* (TYPE @ TO EXIT) > "; 



1350 FL=1@ : G0SUB370 : IFCF=8THENI S*= I N*£LSE1270 

1360 G05UB2428 

1370 I FK=0THENPR I NT0AB, " I TEM NOT IN L I ST I HG".: : GO5UB2500 : GOSUB2510 : GOTO1340 

1330 G0SUB2768 

1390 IFS*="8"THEN1490 

1480 GOSUB2780:PRINT"QUflNTITV RECEIVED: "; 

1419 FL=-4 : G0SUB378 : IFCF=8THENG0SUB1288 : 1 Qtf=I QK+VRL < I N# .V I OE= IOK-VRL < IN* ) ELSE134 


1420 GOSUB2780:PRINT"CHRNGE IN COST <HIT <ENTER> TO SKIP): "i 

1430 FL=-7 : GOSUB370 : IFCFO0THEN1340ELSEIFIN*=" "THEN1450ELSEGOSUB3750 

1440 IFCF=@THENIC=VflLaH*> rPRINTCHRt^O); ELSE1420 

1450 GOSUB2780: PRINT "CHRNGE IN SELL PRICE CHIT <ENTER> TO SKIP): ".= 

1468 FL=-7 : GOSUB370 : I FCFO0THEN134OELSE I F I N*= " " THEN1480ELSEGOSUB3750 

1478 IFCF=0THENIP=VAL<IN*> :PRINTCHR*<30); ELSE1450 

1488 GOSUB1290 : GOSUB2560 : GOSUB2510 : G0SUB2868 : GOTO1340 

1490 GOSUB2780:PRINT"QUHNTITV ORDERED (HIT <EHTER> FOR DEFAULT QTV): "} 

1580 FL=-4 : G0SUB378 : 1 FCFO0THEN1340ELSEGOSUB1280 : 1 F I N*= " " THEN I OX= I 02+ 1 NEELSEI 0'/.= 

I02+VRL<IN*> 
1518 GOSUB2780:PRINT"DfiTE OF ORDER CHIT <ENTER> FOR LAST ENTERED DATE): "> 
1520 FL=8 : G0SUB370 : I FIN*<>" " THEN I P$= I N$ : I M*= I N* : G0T01488ELSE I M*= I P* : GOTO1480 
1530 CLS:PRINTTABa5)"0UTPUT REPORTS AND SUMMARIES" : PRINT 
1548 I FER=1THENGOSUB3060 : RETURN 
1558 PR I NT "OPT IONS: 

1 - PRINTOUT COMPLETE LISTING 

2 - PRINTOUT OF NOT-IN-STOCK ITEMS 

3 - PRINTOUT RLL ITEMS ON ORDER 

4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT 

5 - PRINTOUT BV VENDOR 

6 - PRINTOUT BV PREFIX / SUFFIX" 

1560 PRINT"? - PRINT SUGGESTED PURCHASE ORDER TO VENDOR 

8 - TEST PRINTER 

@ - EXIT TO MR IN MENU" 
1578 PRINT : PR I NT "SELECT OPTION — > "i 
1588 FL=-1 : G0SUB378 : 1 FCF=1THEHRETURNELSEQ*= IN*: I FO*<" 1 " ORO*> "8" THENPR I NTCHR* < 8) ; 

: GOTO1580. 
1590 GOSUB3730:IFXX=1THEM1530 
1608 GOSUB3080 

1610 0=VAL<0*> : IF0=8THENF0RT=8T0131 : LPRINT"*"; : NEXT : CLS : GOTO1530 
1620 GOSUB2960 : IFOO7THENGOSUB2970 : GOSUB3800 
1636 ONOGOSUB3250, 3270. 3290, 3310. 3330, 3360, 3430 
1640 IFOO7THENGOSUB2890 : FORN=1TOTN-1ELSEGOSUB3780 : FORN=lTOTN~i 

1650 J=V(H) : IFSGNC J)=-1THEN1660 

1668 ONOGQSUB3260, 3280, 3308, 3328, 3358, 3400, 3458 

1670 EN*=INKEV*:IFEN*="0"THENLPRINT" ": LPRINT" * TERMINATED *" :P0KE16425, l:GOT 

01538 
1686 NEXT 

1690 IFOO1RNDOO3ANDOO7RNDQO5RNDOO6THEN1770 
1708 IFO=3THEN1760 
1718 IF0=7THEN3838 
1720 IFO=5ORO=6THEN3480 

1738 LPRINT" ": LPRINT "TOTAL ITEMS LISTED: "i TRB(25)TI 
1740 IFCC=0THENLPRINT"TOTAL COST VALUE: "; TAB (25 > i :LPRIHTUSINGL6*; TC# 
1750 LPRINT" TOTAL RETAIL VALUE: "; TRB<25>; :LPRINTUSINGL6$.i TP# 
1768 IFCC-9THENLPRINT" " :LPRINT"TOTAL COST OF ORDERS: "; TRB<25>; :LPRINTUSINGL6*; T 



R# 
1770 GGSUB3240 : CLS : GOTO1530 
1780 G0SUB2638 : GGSUB2660 : GO5UB2670 : RETURN 
1790 GOSUB2540 : GOSUB2660 : GOSUB2610 : RETURN 
1808 CLS:PRINTTAB(20)"CREATE NEW INVENTORY" 
1810 IFER-0THENPRINT0448, "SYSTEM CONTAINS INVENTORY DATA. IF YOU WISH TO ERASE ALL DATA 

TYPE (SHIFT) K OR ELSE TYPE @ TO RETURN TO MAIN MENU ~~> "; ELSE1340 
1820 FL=1:GOSUB370: IFCF=1THENRETURNELSET*=IN*: IFT*0"K»THENPRINTCHR*<8>; :G0T0182 



1830 CLOSE :KILLPI*:KILLPD$:KILLPT*:KILLPS*:KILLPR*: CLS :PRINTM68, "ALL DATA ERASE 

D " : ER=1 : PRINT : PR I NT : GOSUB2480 ; RETURN 
1840 TC#=0 : TP#=0 : TR#=0 : T 1=0 : TN=1 : HI=0 : HN=1 : F=0 : ER=8 : GOSI 1625^8 
1850 PRINT0468, "SYSTEM READY FOR NEW INVENTORY" 
1868 PR INT: PR INT: GOSUB2480 : RETURN 
1870 CLS ;PRINTTAB(21) "ENTER SALES TICKETS": PR I NT 
1888 IFER=1THENGQSUB3860 : RETURN 
1890 GOSUB235@:H=HN:HC=0 
1900 IFHI=1000THENCLS:PRINT0448,"SALES FILE IS FULL <1000 ITEMS) U*E FUNCTION 6 TO 

POST SALES AND CLEAR THE FILE. ": CLOSE1 : GOSUB2500 : RETURN ' " 
1910 GOSUB350 
1920 PRINT0256,CHR*<31); 

1930 IFHCO0THENPRINT@295, "(LAST ENTRY: "jHA*j")"j 
1940 PRINT025& "STOCK NUMBER: "/ 

1950 FL=10:GOSUB370:IFCF=0THENHA$=IN$ELSECLGSE1:RETURN 

I960 GOSUB360:FRINT(t384, "QUANTITY SOLD: "; 

1970 FL=-4 : G0SUB370 : IFCF=8THENHB=VAL < I N*) ELSE1910 

1980 GOSUB2360 : GOSUB2400 : G0SUB2380 

1990 HI=HI+1 : HN-HN+1 : H=HN : HC=1 : GOTO1908 

2000 CLS:PRINTTAB<20)"END OF PERIOD PROCESSING" "PRINT 

2018 IFEP-1THENGOSUB3860 : RETURN 

2028 PRINTC128, "FUNCTIONS: 

1 - POST SALES TICKETS AND CLEAR TICKET FILE 

2 - CLEAR CURRENT SALES FIGURES FROM INVENTORY 

3 - CLEAR CURRENT AND CUMULATIVE SALES FIGURES FROM INVENTORY 

@ - EXIT TO MAIN MENU": PRINT 
2036 PRINT "SELECT FUNCTION > "; 

2840 FL=-1 : GOSUB370 ; IFCF=1TH£NRETURNELSEH0*=IN* : IFH0$<"1"0RHG$>»3"THENPRINTCHP*( 

S)j :GOTO204M 
2045 IFVAL(H0$)>1THENPRINT" ARE YOU SURE <Y/N)"; : FL=1 : GOSUB370 : IFIN*O"V»THEN20 

00 " 

2850 ONVAL<HO*)GOTO2@60. 2260, 22SO 
2060 G0SUB3730: IFXX=1THEN2000 

2070 IFHI=0THENCLS:PRINT0460,"NO UNPOSTED SALES TICKETS IN FILE" -GOSUB2500-QOTO2 

000ELSEGOSUB219O ' 

2080 CLS :PRINTG468, "POSTING IN PROGRESS" 
2090 GOSUB2350:HT=HI:HC#=0 
2100 FORH=lTOHI 

2110 G0SUB2360 : GOSUB2400 : GOSUB2410 : I S*=HA$ 
2120 GOSUB2420 : I FK=0THENGOSUB2200 : GOTO2170 
2138 GOSUB2548 : GOSUB2608 : GOSUB2610 
2140 P1=P1+HB : P2=P2+HB : HC#=HC#+HB*IC 



£156 I QV.= IflK-HB : TC#=TC#-HB* IC : TP#=TP#-HB* I P : I F I QJK0THENGOSUB2228 

2169 GOSUB2560:HT=HT-1:PRINT0596, "TICKETS REMRINING: "; HT 

2170 NEH*T:GOSUB2230 

21S0 HI=0 : HN=i : CL0SE1 : KILLPR* : GOTO20O0 

2190 GOSUB2960:LPRINTTRB<30> "SALES TICKET POSTING REPORT" :LPR I NTLF*: RETURN 

2200 LPRINT"E R R R : STOCK # ";HA*.;" IS NOT IN INVENTORY LISTING RND WAS NOT 

POSTED" :LPR I NTLF* 
2210 RETURN 

2220 LPRINT"N T E : STOCK # ";HA*; " NOW HAS fi QURNTITV OF "; IQX:LPRINTLF*-RET" 
RN 

2238 LPRINT"NUMBER OF ITEMS POSTED: ";HI-HT 

2240 LPRINT "TOTAL COST OF GOODS SOLD: "i U5INGLS*.; HC# 

2250 GOSUB3240: RETURN 

2260 CL5 : PRINT0463, "CLEARING CURRENT SALES FIGURES" 

2270 GOSUB2206 : GOTO200O 

2280 CLS : PR I NT0460, "CLEARING CURRENT AND CUMULATIVE SALES FIGURES" 

2290 GOSUB23O0 : GOTO2008 

2308 FORJ=1TOTN-1 

2310 GOSUB2540 : GOSUB2600 : GOSUB2610 

2320 IFHO*="3"THENP2=0 

2330 P1=0 

2340 GOSUB2560: NEXT: RETURN 

2350 OPEN " R " .. 1 > PR* : RETURN 

2360 HR=INT< <H-l)/20)+l : HD=H-20*INTC <H-1 V20>~1 

2370 FIELDS HD*12RSD*, 10ASH1*, 2ASH2* : RETURN 

2380 LSETH1*=HR*:RSETH2*=MKI*<HB> 

2390 PUT1,HR: RETURN 

2400 GET1.. HR : RETURN 

2410 HA*=H1* : HB=CVI <H2$> : RETURN 

2420 HL=0:NH=TN 

2430 K= INT < CNH-NL V2 > : I FK=0THENRETURNELSEN=K+HL 

2440 J=RBS WN > > : G0SUB2630 : GOSUB2660 : 1 FI S*+STR I NG* < 10-LEN < IS* ) , " ») =N*THENI =:*=N* 

: G0T02476 
2458 IFIS*+STRING*<10-LEN(IS*>, " " XN*THENNH=N : G0T02430 
2460 NL=N:GOTO2430 

2470 IFSGN< VCN> )=-lTHENK-C< : RETURNELSERETURN 
2480 PRINTTABa0>"TVPE TO RETURN TO MR IN MENU — > "; 
2490 FL=1 : GOSUB370 : IFCF=1THENRETURNELSEPR I NTCHR*<8 ) ; : G0T02490 
2500 FORT=1TO250@ : NEXT : RETURN 
2510 PRINT0256.. "0 - STOCK # > 

1 - DESCRIPTION > 

2 - QURNTITV > 

3 - COST > 

4 - SELL > 

5 - LOCATION > 

6 - REORDER PT/QTV— > 

7 - # ON ORDER > 

8 - DATE LRST ORDER-> 

9 - VENDOR >"i CHR*<3i\i 

2520 RETURN 

2539 0PEN"R".. 2, PD* : OPEN"R", 3,PS* : RETURN 

2540 JR= I NT < < J-i ) /4 > +1 : JD= J-4* INT < < J-l ) /4 > -1 

2556 FIELD2, JD+63RSD*. 19ASFD*, 2ASFQ*.. 4RSFC*, 4RSFP*. 10RSFL*, 2RSFR*, 2RSFR*, 2RSF0*. 

8RSFM*, SflSFV*, 2RSP1*, 2R5P2* : RETURN 
25S0 LSETFD*=ID* : RSETFQ*=MKI*< IQ?>> : RSETFC*=MKS*< IC) 



2578 RSETFF*=MKS*< IP) : L5ETFL*=IL* : RSETFR*=MKI*< IR?i) : RSETFA*=MKI*< INK) 
2580 RSETFG*=F1KI*< I OK) : LSETFM*=IM*:LSETFVt=IVt : RSETP1*=MKI*<P1) : RSETP2*=MKI*<P2) 
2598 PUT2,JR: RETURN 
2680 GET2..JR: RETURN 

2S10 ID*=FD* : IQE=CVI (Ft!*) : IC=CVSCFC*) : IP=CVS<FP*> : IL*=FL* 

2620 IRK=CVI <FR*> : INZ=CVI <FA*) : IOK=CVI <FO*) : IM*=FM* : I V*=FV* ; Pi=CVKPl*) : P2=CVI <P 
2$) : RETURN 

2630 JR=INT< < J-l)/25)+l : JD=J-25*INT( < J-D/25J-1 

2640 FIELD3, JD*16ASD*, 10RSN* : RETURN 

2650 LS£TN*=I S* : PUT3, JR : RETURN 

2660 GETS, JR: RETURN 

2670 I S*=N*: RETURN 

2680 OPEN"I", 1, PI*:OPEN"I", 3, PT* 

2690 INPUT#3.. TC#, TP#, TR#, TI, HI : CL0SE3 

2700 INPUT#1, TN, HN, F 

2710 FORN=lTOTN-i : INPUT#1, V<N) : NEXT : CLOSE1 : RETURN 

2720 QPEN"0",1,PI* 

2730 PRINTM,TNjHN.;F 

2740 FORN-1TOTN-1 : PRINTM, V<N> : NEKT : CLOSE1 : RETURN 

2759 OPEN"0", 3, PT* : PRINT#3, TC#; TP#; TR#; TI; HI :CL0SE3 : RETURN 

2760 PRINT@fly, CHR$<30>j :GOSUB2510;GG5UB2540:GOSUB2608:GOSUB2610:PRINTi?R6, IS*; GO 
SUB2860: RETURN 

2770 DRTR281, 345, 409, 473, 537, 601, 665, 729, 793, 857, 128, 490, 960 

2788 PRINT0fifi,CHR*<30):PRINTCHR*<38); :PRINT@fifi,j : RETURN 

2790 DATA "####" 

2800 DATA "####. ##" 

2818 DATA "**###,####. ##" 

2820 DATfi"###. #" 

2830 IFIPO0THENPRINT@552, "GROSS PROFIT* ";USINQL7$; FNGPCIC, IP).: : PRINT" K": -RETU 

RNELSERETURN 
2840 IFCC-LTHENLPRINT" *+**»; : RETURN 
2850 IFIPO0THENLPRINT" »; USINGL7*; FNGPOC, IP).; : RETURNELSERETURN 

2869 PRINTdAl, ID*; :PRINT@R2, IQE; :PRINT0R3, USINGL1*.: ICj :PRINT0R4, USINGL1*; IP; -GOS 
UB2830 

2870 PRINTERS, IL*; :PRINT0R6, IRK; "/";. IWi- :PRINT«W, IOZ; :PRINT@A8, IM*; :PRINT@A9, IV 
*; :GOSUB3860 

2880 RETURN 

2890 LPRI NT "STOCK # DESCRIPTION QTV COST SELL GP V. LOCAT 

ION R/O PT / QTV ON ORDER DATE VENDOR CURR / CUML" 

2900 LPRI NT" ======= =========== === ===== -___ ---- =-___ 



2910 LPRINT" ": RETURN 

2926 GOSUB3720:LPRINTIS*;TAB<12>ID*;TRB<33)j :LPRINTUSINGL8fc IQ% :LPRINTTRB<39>; : 

IFCC=0THENLPRINTUSINGL1*; IC.;ELSELPRINT" ****•'.; 
2930 LPRINTTAB<48)USINGL1*; IP; :GOSUB2840 
2940 LPRINTTRB<63)IL*; " "; :LPRINTUSINGL0*; IRK; : LPRINT" / ":• :LPRINTUSINGL0*; INK; 

: LPRINT" "i :LPRINTU5INGL0*;IOK; : LPRINT" "i III*.: " "; IV*; " "; USINGL 

0*; PI; : LPRINT" / ";USINGL9*; P2 
2950 RETURN 

2960 LPR INTLL* : LPR I NTLF* : LPR I NTLF* : LPR I NTLEFT*< T I ME*, 8 ) : LPR I NTLF* : RETURN 

2970 CLS:PRINTf?456, "DO VOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? "; 

2980 FL=1 : G0SUB370 : IFIN*0"V"flNDIN*0"N"THENPRINTCHR*<8)j : G0T02988 

2990 IF I N*= " N " THENCC=0 : RETURNELSECOl : RETURN 

3080 PRINT9128, CHR*<31):PRINT0470, "** PRINTING **":RETURN 

3010 GOSUB2680; IFER=1THENRESUME3050 



3020 PR I NT0128, CHR* < 31 ) ; 

3030 GGSUB2530 

3640 G0T0248 

3650 PRINTM48, CHR*<28>; CHR* (29); "NO DATA IN SYSTEM. USE FUNCTION 4 OF MENU TO C 

REfiTE I NVENTORV. " : PR INT : GOSUB2480 : GOTQ240 
3068 PRINT645& "NO DATA IN SYSTEM! USE FUNCTION 4 FIRST i " : GOSUB2S80 : RE TURN 
3870 PR I NT: PR I NT "NUMBER OF ITEMS CURRENTLY IN LISTING: ";TI 
3086 PRINT "NUMBER OF UNPOSTED SALES TICKETS: "; HI 
3090 PR I NT "TOTAL COST <HHOLESALE> VALUE: "; :PRINTUSINGL6*; TC# 

3160 PRINT"TOTAL RETAIL SALE VALUE : "i :FRIHTUSINGL6*; TP# 

3110 PR I NT "TOTAL VALUE OF ITEMS ORDERED: "; :PRINTUSINGL6*i TR# 

3120 RETURN 

3130 I FF=6THENV ( J ) =J : RETURN 

3140 FGRH=iTOTN-l 

3150 I FSGN < V < N ) ) =-lTHENV ( N ) =ABS WN ) ) : J=V < N> : TN=TN-1 : F=F-1 : RETURN 

3160 NEXT 

3178 PI*="INDEXFIL"+". "+P*+" :1" ;PD*="DATfiFILE"+". "+F*+" :1" :FT*="INFOFILE"+". "+P* 

+ " : 1 " : P5*= " STOCKNUM " + ". " +P*+ " : 1 " : PR*= " SALEDATA "+ ". " +P*+ " : 0" : RETURN 

3180 PRINT0472, "ENTER PASSWORD > ":• 

3196 P*="":F0RX=1T08 

3200 PE*= I NKE V* : I FP£*= " " THEN3280EL5E I FP£*< " "ORPE*> " Z " THEH3228 .. . 

3210 P*=P*+PE* : PR I NT "#*';: G0T03238 

3220 IFASC<PE*>=13THEHRETURNELSE3200 

3230 NEXT : RETURN 

3240 LPRINT" " :LPRINT"EHD OF LISTING" :LPR I HTLL*:L'PR I NTCHR*<12) : RETURN 

3256 LPRINTTAB ( 30 ) "COMPLETE I NVENTORY L I ST I NG " : LPR I NT " " : RETURN 

3260 G0SUB1788 : G0SUB1798 : G0SUB292S : RETURN 

2270 LPR I NTTAB < 30) " L I ST I NG OF NOT- 1 N-STOCK I TEMS " : LPR I NT " " : RETURN 

3288 G0SUB179O : IFIQ;:>0THENRETURNELSEGOSUB1788 : GOSUB2920 : RETURN 

2290 LPR I NTTAB < 30 > "LISTING OF ALL ITEMS ON ORDER" : LPR I NT" ": RETURN 

3260 G0SUB1798 : I F I O?i=0THENRETURNELSEGOSUB1780 : G0SUB2920 : RETURN 

3318 LPRI NTTAB <30> "LISTING OF ALL ITEMS AT OR BELON REORDER POINT" : LPRINT" ":R£T 

URN 
3320 GOSUB1790 : I F I QX> I RKTHEHRETURHELSEGGSUG1780 : GOSUB2320 : RETURN 
3330 GOSUB3520 : GOSUB3O00 

3340 LPR I NTTAB < 30 ) " L I ST ING BY VENDOR : " ; I X* : LPRI NT " " : G0SUB3460 : RETURN 
3350 GOSUB1790 : 1 FLEFT* < I V*.. LEN < I X* ) ) O I X*THENRETURNELSEGGSUB1780 : GOSUB3470 : GOSUB 

2920 : RETURN 

3369 CLS : G0SUB3460 : PR I NT0468, "<?> REF I X OR < S ) UFF I X ? " 

3370 S*= I NKEV* : I FS*<> " P " ANDS*0 " S " THEN3370 

3388 I FS*= " P "THENPR I NTC-532, "ENTER PREF I X — > " ; : FL=10 : GOSUB370 : K*= I N* : GOSUB380O : 

LPR I NTTAB '30) "LISTING BY PREFIX: "; K* : LPR I NT" ": RETURN 
3390 PR I NTS532, " ENTER SUFF I X — > " .; : FL=18 : G0SUB378 : K*= IN* : GOSUB3O00 : LPR I NTTAB < 30 

) "LISTING BY SUFFIX: "; K$: LPRINT" ": RETURN 
3400 GOSUB1780: IFS*="S"THEN3428 

3410 I FLEFT* < I S*, LEN < K* > > OK*THENRETURNELSEG05UB1798 : G0SUB3470 : G0SUB2920 : RETURN 
3420 I FR I GHT*< I S$, LEN < K* > ) OK*THENRETURHELSEGOSUB1790 : G0SUB3470 : GGSUB2920 : RETURN 

3439 GOSUB3530 : GOSUB3000 

3440 LPR I NTTAB< 20) "SUGGESTED PURCHASE ORDER TO VENDOR: "i IX*: LPRINT" ":TT=0;T1#= 
8 : RETURN 

3450 GOSUB1790 : 1 FLEFT* < I V$, LEN (IX*)) OI X*OR I QK> I R'iOR I OXO0THENRETURNELSEGOSUB178 

0:GOSUB3800: RETURN 
3460 TT=0 : Ti#=0 : T2#=0 : T3#=8 : RETURN 

2476 TT=TT+1 : T1#=T1#+ 1 G» I C : T2#=T2#+ 1 QX* I P : T3#=T3#+ 1 OK* I C : RETURN 
3480 LPRINT" ": LPR I NT "NUMBER OF ITEMS: "; TAB(25)TT 



3490 IFCC=0THENLPR I NT "TOTAL COST VALUE : " ; TAB < 25 > US I NGL6* : Ti# 

3560 LPRINT"TOTAL RETAIL VALUE: "; TflB<25>USINGLfi*i T2# 

3510 I FCC=0THENLPR I NT " TOTAL COST OF ORDERS : " ; TAB < 25 ) US I HGL6* : T3# 

3520 GOSUB3240 : CLS : G0T01540 

I530 CLS: PR INT0458, "ENTER ENOUGH LETTERS TO IDENTIFV VENDOR — > "; 

3540 FL=6 : GOSUB370 : I X$= I N* : RETURN 

2558 I FERR/2+i=54THENER=l : RETURN 

3568 I FERR/2+l=57THEN261S 

3570 IFERR/2+l=6STHENCLS:CLOSE:FRINTI345S, "HO DISK IN DRIVE #1 - RUN TERMINATED" ■ 
CLEAR50 : POKE&HSCSC, 1 : PR I NT : PR I NT : END 

3580 IFERR/2+l=78THENCLS : PRINTC'465, "UNAUTHORIZED ACCESS TO INVENTORS' WTEN 

" TAB < 28 > "RUN TERM I NATED " : PR I NT : CLEARS© : P0KE4H5H8C - 1 ■ END 
3590 PR I NT: PR I NTCHR* ae>;" UNEXPECTED ERROR CODE "; ERR/2+1; "IN LINE" ; ERL -GnsUB25B 

8:GOTO330 ' " 

3600 ONERRORGOTOO 

3616 CLS:PRINT§404, "** DISK I/O ERROR +*":TE=TE+1 
3620 PRINTC-5S6, "TOTAL I/O ERRORS THIS RUN: "; TE 
3630 PRINT§650, "THIS ERROR OCCURRED IN LINE"; ERL 
3640 PRINT&778.. "CTjRV AGAIN OR <E)XIT FROM PROGRAM f " ; 
3650 FL=1 : G0SUB378 : 1 F I N*<> " T "AND I N*<> "E " THENPR I NTCHR* < 8 ) : • QOTfRfiSB 
3660 IFIN*="T"TH£NRESUf1EELSE330 
3670 OPEN " ", 1.. " TRANSFER : w " 

3680 -PRINTttl, PI* : PRINT*!.. PS* : PRINTttl, PD* : PR INTfcL PT* ■ PR I HTM ■ PR* 
3696 CLOSE! : CLEAR58 
3780 RUN"DATASORT" 
3710 END 

2720 I FPEEK< &H4029 > <58THEHRETURN£LSELPR I NTCHR* < 12 ) : G0SUB2968 ■ GOSt 1B2S98 ■ RETURN 
3738 IFPEEK<14312K=127THEHXX=0: RETURN 

3740 CLS : PR I NTC'468, "PRINTER NOT READY !!": XX=l : GOSUB250O ■ H. <; ■ RETURN 
3750 IFCFO0THENRETURN 

3768 IFLEN(IN*»=3THENIFMID*(IN*, LEN<IN*)-2, 1)=". "THENRETURN 
3770 PR I NT " I NVAL ID FORMAT ! " ; : FORT=1TO1008 : NEXT ■ CF=2 ■ RETt IRN 
3788 LPRINT" GTY STOCK # DESCRIPTION CO^T FXTF 

NSION" 
3790 LPRINT" === ======== =========== ____ 

=====": LPRINT" ": RETURN 
3806 TT=TT+1 : T1#=T1#+ I NX*I C 

3818 LPRI NTUS I NGL8*; INK; : LPR I NTTAB < 12 ) I S*; TAB < 27 ) I D*; : LPRI NTTAB < 48 > f IS I NGL1* i I C; ■ 

LPRINTTAB(60)USINGL6*; INK*IC 
3828 RETURN 

3828 LPRINT" ": LPRINT "TOTAL ITEMS :";TT 
2840 LPRINT "TOTAL COST OF ORDER: "; TAB<20;USINGL6*; Tl# 
3858 G0SUB3248 : CLS : G0T01540 
3868 PRIHTC616, "CURRENT SALES : "; PI; 
3878 PR I NT(?680, "CUMULATIVE SALES: "; P2; 
3888 RETURN 



10 CLEflR12@e@ : DEF I NTfi-Z : DI H I S*< 1000) , V < 1888 ) 

20 OPEN" I'M, "TRfiNSFER" 

30 L INE I NPUTttl, P I * : L INE I NPUTttl, PS* 

40 CLOSE1 

50 OPEN" I », 1, PI* : GPEN"R", 2, PS* 

66 INPUTttL TN, HN, F 

78 N=TN-1 

80 FORX=lTON : INPUTS!, VOO : NEXT : CLOSE! 

50 F0RJ=1T0N 

100 GOSUBS00 

110 NEXT:CL0SE2 

126 CLS:PRINTG468p "SORT IS IN PROGRESS" 

138 G0SUB246 

146 CLS:PRINTC-46S, "SORT COMPLETE. SAVING FILES" 

150 OPEN"0", 1, PI* 

168 PRINT#1, TN;HN.'F 

i?0 FQRX=1T0N : PRI NT#1, V < JO : NEXT : CL0SE1 

1S0 CLS : PR I NT6468, " ALL OPERRT I ONS COMPLETE " 

190 PRINT0596, "RETURNING TO MAIN MENU":CLEAR50:RUN"ICS" 

290 JR= I NK < J-l >/25 > +1 : JD= J-25* INT <i < J-l > /25> -1 

210 FIELD2, JD*10flSD*, 10RSN* 

22S GET2, JR:IS*<J>=N* 

230 RETURN 

240 H=N 

250 M=INT<M/2> 

260 IFM=0THENRETURN 

278 K=N-H:J=1 

280 I=J 

290 L=I+M 

300 IFIS*<fiBS<V< I ) ) »IS$<ftBS«:V<L) ) >THEN330 

310 J=J4l : IF J>KTHEN258 

328 GOTO280 

330 T=V( I > : V( I>=V<L> : V(L)=T : 1=1-11 

340 IFK1THEN310 

350 G0T0298 



